home *** CD-ROM | disk | FTP | other *** search
/ NOVA - For the NeXT Workstation / NOVA - For the NeXT Workstation.iso / Apps / AudioApps / StartupSound / StartupSoundApp.m < prev   
Text File  |  1992-12-20  |  521b  |  30 lines
  1.  
  2. /* Generated by Interface Builder */
  3.  
  4. #import "StartupSoundApp.h"
  5. #import <appkit/appkit.h>
  6. #import <soundkit/soundkit.h>
  7. #import <stdio.h>
  8.  
  9.  
  10. @implementation StartupSoundApp
  11.  
  12. - appDidInit:sender
  13. {    
  14.     theSound = [Sound findSoundFor:"Startup"];
  15.     if (theSound) {
  16.         [theSound setDelegate:self];
  17.         [theSound play]; }
  18.     else
  19.         NXRunAlertPanel("Error", "Could not find anything called Startup.snd, process aborted", "Well, Okay!", NULL, NULL);
  20.     return self;
  21. }
  22.  
  23. - didPlay:sender
  24. {
  25.     [self terminate:NULL];
  26.     return self;
  27. }
  28.  
  29. @end
  30.